EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


E 13 


**F ILE*#1D*#0TSISB 
000000 «=sT'TTTTTITTT «© SSSSSSSS_—sIITIIII SSSSSSSS$ BBBBBBBB 
OO  TTTTTTTTTT SSSSSSSS 11111 SSSSSSSS BBBBBBSB 
00 00 TT SS 1] SS 88 RS 
00 00 TT SS 11 SS e8 Bg 
00 00 TT S$ 1] SS Bg 58 | 
00 00 TT $$ 1] SS Bb a8 | 
00 00 tT SSSSSS II SSSSSS  BBBBBBBB 
00 00 TT SSSSSS 1] SSSSSS___ BBBBBBBB 
00 00 TT SS I] SS BB Bg 
00 00 TT SS 1] S$ BB Ba | 
00 00 TT SS I] SS BB oH havi | 
90 00 TT SS I] SS BB 88 | 
TT SSSSSSSS 111111 S$SSSSSSS--- BBBBBBBB med | 
000000 TT SSSSSSSS IIIIII] © SSSSSSSS_---_ BBBBBBBB joe | 
SSSSSSSS DDDDDDDD = LL 
SSSSSSSS DDDDDDDD LL 
SS DD DD LL 
SS DD DD LL 
SS DD DD LL 
SS DD DD LL 
SSSSSS_ DD DD LL 
SSSSSS__ DD DD LL 
SS DD DD LL 
SS DD DD LL 
SS DD DD LL 
SS DD DD LL 
SSSSSSSS__DDDDDDDD —LLLLLLLLLL 
SSSSSSSS_ _ DDDDDDDD ~—LLLLLLLLLL 


Fl 
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{ 
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{ 
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{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
¢ 
{ 
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{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
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REQUIRE file for 1/0 stetenent Block (ISB) 
File: OTSISB.SDL Edit: SBL200 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tt» AND WITH 
CLUSION OF THE ABOVE Sgt NOTICE. THIS SOFTWARE OR ANY 


TRANSFERRED. 


CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


e@eeeeee eee eee eee eeeenene 


Author: T.Hastings 
(Previous edit history removed. SBL 19-Aug-1982) 
eeeee - VMS Version v3.0 


1-058 - Add eepeesent & trees for 4 tie NAMELIST. Fix some typos in 
comments. ~August-198 

1-059 - Add flags 1SBSv" SNGL oPteN a ISBSV_NEED_INIT to support 
Fortran single-element Lists. JAW T1-May-1981 
Restore names for input format flags. and add output format 

flag ISBSV_ERR_OFLO. JAW 13-Aug-198 


ad 


1-061 - Remove date from Edit: Line for uniformity. JAW 15-Aug-1981 
teree = VMS Version V3. 

1-062 - Add new pooponene sht?%3 oo Basic V2. PLL 11-Jun-1982 

2-001 Convert to SDL. 19-Au 


bas 


Add 
Add A_SAVE PTR oy A ~Sive 
internal files. SBL™ AE eN 


*. aeenrt 2 


e 


The ISB contains OTS OWN data associated with a particular 
logical unit which is needed only for the set of calls which 
implement a single 1/0 statement. The ISB locations are grouped by 
level of abstraction: 
1. User Program Interface (UPI) 
- User Data Formatter (UDF) 
- Record Formatter and processor (REC) 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND r tar 
OTHER 


IN 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


he en te IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


LARRRAAAAAAALALALALALALA AA AALE ALLA EAAS EASES SERA ARES ALARA RASA RASA RARER ES SS 


Page 1 


PAR RARRAASARAALALAASASAASALALALALALL ALARA SASSAR SEAS ALARA SALES ERAS ASL E LASS OY 


ITS 


® 
® 
® 
® 
® 
® 
*® 
® 
® 
® 
® 
* 
® 
® 
® 
® 
® 
* 
® 
® 


1-057 - Force Length calculation of block after allocation. HJ 22-Aug-1980 


Don't eed on names for y 8 ey SBL 29-Sep-1982 
ere ae aggrega ote name to ISB for better fieldset name. SBL 26-Oct-1982 


TT ee statement types for List-directed 


1 
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In act ISB could be Sxngatcat ly allocated at the beginning of every 
E, DECODE, and ENCODE and deallocated at the end 

(in FORSIO END) However, for runtime efficiency it is not. 

OWN data which is needed to be retained for more than 

one 1/0 Statement is allocated in the Logical Unit Block (LUB). 

Data which is needed during a single call is always LOCAL. 


ISB definition (-11 OTS equivalents are indicated in parens) 
ALL are unsigned, ercont SBSW_FMT_REP. 
Symbols have form: ISB$t_symbol where t is A,B.W,L.T, or V. 


DARARAAAAAAAN 


MODULE SISBDEF; 
AGGREGATE ISB STRUCTURE PREFIX I1SB$ ORIGIN end_of_lub; 


/O statement type codes 

sed to index into routine dispatch tables to call 

he appropriate User-program data formatter level 

f abstraction (UDF = level $3 and Record processing level 
f abstraction (REC = level 3). 

odes assigned so that a TRUE value means WRITE and a 
alse value means READ. The distinction between 

ormatted and object-time formatted disappears at level 17 


I 
U 
t 
° 
° 
C 
} 
and so does not have a separate statement type code. 


+ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{- 
{ the 0 entry is no longer used because it reports an error. It is 


{ designed to catch a recursive CLOSE among other things. 
EQUALS FORTRAN WRITE sequential formatted 


ST_TY_WSF 1; { 

CONSTANT FORSTTYLO EQUALS 1; { Lowest FORTRAN statement type 
CONSTANT ST_TY_RSF EQUALS ¢: { FORTRAN READ sequential formatted 
CONSTANT ST_TY_WSU EQUALS 3; { FORTRAN WRITE sequential unformatted 
CONSTANT ST_TY_RSU EQUALS 4; { FORTRAN READ sequential unformatted 
CONSTANT ST_TY_WDF EQUALS 5; { FORTRAN WRITE direct formatted 
CONSTANT ST_TY_RDF EQUALS $: } FORTRAN READ direct formatted 
CONSTANT ST_TY_WDU EQUALS 7; FORTRAN WRITE direct unformatted 
CONSTANT ST_TY_RDU EQUALS 8; { FORTRAN READ direct unformatted 
CONSTANT ST_TY_WSL EQUALS 9; { FORTRAN WRITE sequential List-directed 
CONSTANT ST_TY_RSL EQUALS 10; { FORTRAN READ sequential List-directed 
CONSTANT ST_TY_WMF EQUALS 11; FORTRAN WRITE memory formatted (ENCODE) 
CONSTANT MIR_DE_EN EQUALS 11; FORTRAN Minimum 

DECODE/ENCODE code 
CONSTANT ST_TY_RMF EQUALS 12; FORTRAN READ memory formatted (DECODE) 
CONSTANT MAR_DE_EN EQUALS 12; FORTRAN Maximum 

DECODE/ENCODE coge 
CONSTANT ST_TY_WXF EQUALS 13; FORTRAN REWRITE indexed formatted 
CONSTANT ST~TY-RRF EQUALS 14; FORTRAN READ keyed formatted 
CONSTANT ST_TY_WXU EQUALS 15; FORTRAN REWRITE indexed unformatted 
CONSTANT ST_TY_RKU EQUALS 18: FORTRAN READ keyed unformatted 
CONSTANT ST_TY_WIF EQUALS 17; FORTRAN WRITE internal formatted 
CONSTANT ST_TY_RIF EQUAL 18; FORTRAN READ internal formatted 
CONSTANT ST_TY_WSN EQUALS 19; FORTRAN WRITE sequential NAMELIST 
CONSTANT ST~TY"RSN EQUALS 20; FORTRAN READ sequential NAMELIST 


OTSISB.SDL;1 


CONSTANT 
CONSTANT 
CONSTANT 


CONSTANT 


EQUALS 
EQUALS 
EQUALS 


EQUALS 


CONSTANT 
CONSTANT 


EQUALS 
EQUALS 


i 
ST-TY_GRFA EQUALS 
ST-TY-FRFA EQUALS 
BASSTTYHI EQUALS 


{ end of statement type definitions 


{ Begin data structure definition 


union_1 UNION; 
RESTARTPC ADDRESS; 


USR_HANDL ADDRESS; 
END union_1; 


A UNION; 

MAJ _F_PTR ADDRESS; 
1BUS_LUB ADDRESS; 

union_1A; 


R_FP ADDRESS; 
7 . 


H 1 
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FORTRAN WRITE internal \etagirected 
1 iba READ internal List-directed 
Highest FORTRAN statement type 

Leave a Little room for FORTRAN expansion 
BASIC PRINT 

Lowest BASIC statement type 

Basic LINPUT 

Basic PUT sequential 

Basic INPUT 

Basic PRINT USING 

Basic ert! LINE 


ELE 
Basic READ memory 
UPDA 


Basic GET relative 
Basic FIND relative 
Basic UNLOCK - 

asic FREE (strange name to avoid conflict 
ith FIND relative) 

asic GET inasxed 

Put indexed 
ASIC MOVE FROM/MOVE TO 
asic FIND indexed 


asic FIND sequent tal 
MAT PRINT 


MAT READ 
asic GET by RFA 
asic FIND 4 RFA 
ighest BASIC statement type 


Basic PUT relative 
{ 
{ 
{ 
{ 
{ 
{ 
7 
{ 
{ 
{ 
{ 


8 

dl 

8 

8 

B 

8 

B INPU 
Basic RESTORE indexed 
: MAT LINPUT 
8 

8 

8 

B 

H 


f Address of start of I/0 List, for 
restarting BASIC 1/0 statements. 
{ Address of user's handler (FORTRAN) 


f Holds pointer to last Basic mejor frame. 
Back pointer to previous LUB (FORTRAN) 


{ User's FP. 


UN 
AT_STKP WORD UNSIGNED DIMENSION 8; { 8 entry pushdown stack containing relative 


AAA 


1 
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ets offset in format statement for be ep lantang 
+o (2f ours — eh MT_DEP is —_ 
= 1~item, 1 = 2 items,...) 
{ The following two items are used by FORSSUDF ch to save Pr e buffer 


{ pointer and end when processing a repeated complex value. 
structure 18 STRUCTURE; 
SAVE_PTR ADDRESS: Saved LUBSA_BUF _PTR 
SAVE— “END ADDRESS; Saved LUBS$A_BUF_END 
end Stryctere,, 1B: 
end union_1 


union_2 UNION; 
FAT_STKR WORD UNSIGNED DIMENSION 8; { 8 entry pushdown stack containin rou re gt 
count (as a word) remaining. IS6$ og, DE 
yates into stack (-l=empty, o=1 item, 1=2 


ite . 
SCA_FAC_D BYTE UNSIGNED DIMENSION 8; | bee 1 precision scale factor for BASIC 
END union_2; 


+ 
Locations initialized for all 1/0 statements 


AA 


union_3 UNIO 
ERR_NO BYie UNSIGNED; { FORTRAN error number occurring during 
{ current 1/0 statement and continued until 
: 8 end of statement where it will be SIGNALed. ; 
0 means no such continuable error has occurred in this 
{ 1/0 statement. 
SCALE_FAC BYTE; { BASIC scale factor in the range of -6 => 0. 


END union_3; 


= Bg ey | A... at the beginning of every 1/0 Bt esonens in Procedures 
reer am Interface (FOR-UP!I) level of abstraction, which is: 
FORSCREADs URI TE (SF ,SO,SU,DF ,.D0,DU) or FORSCDECODE’ ENCODED. {mF MO} 


neler) agg W.EXJ) Record 1/0 statement 
ype code. Used as an index into 
dispatch table structures for calling 

procedures in the User Data Formatter (FOR-UDF) 

and Record process 2» (FOR-REC) levels 

of spat rect tens See FORSIO_BEG Modlue. 

(FORFM ) No. of charactérs 

allocated. to contain compiled format of 

° 

ob 

at 

( 


STTM_TYPE BYTE UNSIGNED; 


FMT_LEN WORD UNSIGNED; 


3 ect-time format. 0 means not 
bject-time format. Space is deallocated 
end of 1/0 statement (FORFORSIO_END). 
FOR-ERREX) Adr of ERR= transfer or 8 if none. 
(FOR-ENDEX) Adr of END= transfer or 
Address of the be ssi0°8 of the FORTRAN format. 
This is set in FORS$I0_ BEG and con, either epint 
to a preconp tied format or a rentt me compiled 
format. In the latter case, LEN is non-zero. 
This is also where the Gaatcist ye 


ERR_EQUAL ADDRESS; 
END-EQUAL ADDRESS; 
FMT-BEG ADDRESS; 


E 
: 
: 


1 
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{ block address is stored. 


ISB locations used by che 1/0 independent format interpreter 
FORSSFMT_INTRP and occas gehts updated bY the input or output 
dependent Formatted User Data Formatter (FORSSUDF_RF or FORSSUDF _WF) 
for Hollerith (FOR-nH) format code only. 


union_3A UNION; 
FAT_PTR ADDRESS; (FORFMTAD) Adr. of next byte to be read 
from the compiled format statement oyte array 
LIS_HEAP_LEN LONGWORD UNSIGNED; { Length of storage allocated in LIS_STR 
Used by FORSSUDF_RL 
END union_3A; 


+ 


ISB Locations used as own storage solely by FORSSUDF_RL 
the List-directed input processor. More storage is defined 
further down where it is convenient. 


AAA 


LIS_STR ADDRESS; { Address of copostes string constant 
{ saved in FORSSUDF_RL1. 


+ 


ISB Locations returned as parameters from FORSSFMT_INTRP to the input 

or output dependent Formatted User Data Formatter TFORFORSSUDF_RF 

or FORSSUDF WF) which do not modify them. These parameters are 

stored in the ISB because they are needed by FORSSFMT_INTRP for more than 
one call if the format code is repeated. 


AAR AAAA 


FMT_P BYTE; 


R-D) Number of fraction digits 
R-E) Number of exponent characters 


union_4& UNION; 


FAT_REP WORD; { Pen-ceret signed Format repeat count for current 
ormat code. 
LIS_REP WORD UNSIGNED; (FOR-REPCT) unsigned repeat count for List- 
directed input . = 
LEN_REM WORD UNSIGNED; { (BAS-new) Length of format string remaining. 
END union_4; 
union 


5 UNION; 
FAT_CODE_UNION UNION; 
FMT_CODE BYTE UNSIGNED; { Format type code 


K 1 
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FAT COE STRUCT STRUCTURE; 
fill-3 BITFIELD LENGTH 7 FILL TAG $$;{ first 7 bits are format code 
FMT_REPRE BITFIELD; representation byte follows if 1 
END-FMT CODE STRUCT; 
END FMT_CODE UNION; 
LIS_CTYPE L +. UNSIGNED; { type of constant scanned by List-directed input 
END union 
FMT_REVER WORD UNSIGNED; (FORFMTAD) Relative peatee 9 of gercent format reversion 
point to revert to when end format 
statement is encountered ~K, more data 


elements to be transmitted. 
FMT_DEP BYTE UNSIGNED; CFORFSTKP) Adr. of current top of format 
pushdown stack. 


FMT_FLAGS UNION UNION; 
“FMT_FCAGS WORD UNS 1 GNED; { Flags for FORTRAN-77 

FMT =FLAGS STRUCT STRUCTURE; 
NP _FCAGS UNION UNION; 


AGS BYTE UNSIG nput conversion flags 


IGNED;€ I 
INP_ FLAGS_STRUCT STRUCTURE; 
“BN BITFIELD; { Blanks are nulls if set 
LYE BITFIELD; { Only allow E, e if s 
ERR_OFLO BITFIELD; Underflow is an aocer tie set 
DONTROUND BITFIELD; { Don't round result if set 
SKIPTABS BITFIELD; Ignore tabs if set 
XP_LETTER BITFIELD;:{ Exponent letter is required if set 
FORTESCALE BITFIELD;{€ Scale even if exponent present if set 
fill_4 BITFIELD FILL TAG $$: Expansion 
END INP_FLAGS_ STRUCT; 
ND INP_FLAGS UNION; 
OUT_FLAGS_UNI URION 


Output conversion flags 


:€ 

URE; 

BITFIELD { Force optional + 

ERR_OFLO BI tFIELD: { exponent wrote width overflow is an 


if set 
fill_5 BITFIELD LENGTH ¥¥ FILL TAG $$; { Expansion 
END OUT FLAGS STRUCT; 
END OUT_FLAGS WAION: 
END FMT_FLAGS_STROCT 
END FMT_FLAGS_UNION; 


fill_6 BYTE UNSIGNED FILL TAG $$; {1 spare byte for future (FOR-keep longword aligned) 


{+ 
: Status bits used at any of the levels of abstraction 


STTM_STAT_UNION UNION 
STIM_STAT WORD UNSIGNED; { status lasting only for a single 
1/0 statement, but needed 
across several calls which 
implement that Sinale’ 1/8 statement. 


STTM_STAT_STRUCTURE STRUCTURE; 


PAE AAT SS TORS at ee 
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P_FORM_CH BITFIELD LENGTH 2; seas) stegs othe format character that follows 
s 


rompt set in BASSSUDF_RL1 and read 
n BRS$10-€ 


CPOR@DOLFCS) Dollar format encountered in 
ormat pepeges’ 

(PORPMT P) User-srogren data encountered 

in format for current records. Used to 

roup with no data element format code 

hereby causing an infinite loop 

(FOR“W.NULL) Slash seen Cyr ing sereaated ee 
see also: Slash seen in List-directed input. 
(FOR-UNFLGS) oak fe or on segmented record 
penne AL 4 ee t last record 

(F = FAK) DE ODE /ENCODE ya done 

so RAB and unit number have 

no meaning (FOR-used during error handling). 
Also set or internal files. 

List directed input currently has heap 
storage allocated. 

Used by OTSCCB for egeyretve 1/0. 

Set when there is 1/0 a progress for 

this LUN in addition to the current 1/0. 

(BAS) MAT INPUT continuation - ‘'8'’ was last 
character of record. Read and written at the 
REC level of matrix processing. 

(BAS) MAT PRINT has more than one preys 7, an 
element transmitter. Set and checked in 
level of MAT _ element transmitter. 


DOLLAR BITFIELD; 
USER_ELEM BITFIELD; 


SLASH BITFIELD; 
LAST_REC BITFIELD; 
DE_ENCODE BITFIELD; 


LIS_HEAP BITFIELD; 
RECURSIVE BITFIELD; 


MAT_CONT BITFIELD; 


MAT_PRINT BITFIELD; 


PRINT_INI BITFIELD; 
set x SIOBE =i" cleared in po transmitter 
checked and cleared in BASIOEND. Used to indicate 
that there has been a PRINT with no element 
transmitter. 

(FOR) There is only one element in the 

current 1/0 List. Indicates that an 

unbuffered transfer is possible if 

vecere acter and record size permit. 

(FO level initialization has not 

“ ge done. Set on - ynsernat ted 

EAD, other than a keyed R ‘ 


SNGL_ELEM BITFIELD; 


NEED_INIT BITFIELD; 


QOQEQOQOQOQOQOQOQQOQQOQOQGAQAAQOQQOAOAA OOO AAA AA AA AA AAA AAA AAA AA 
~ ro 


END STTM_STAT_STRUCTURE; 
END STTM_STAT_UNION; 


INTFILEND ADDRESS; { End of internal file buffer (FORTRAN) 


CONSTANT NEG_LUB EQUALS .; { Negative length of LUB (which follows) 


e 

The following filler occupies the space where the LUB is allocated. 
If the Length of the LUB is changed the size of this filler must be 
_changed accordingly. 


 vlieateaies 


lub_filler BYTE UNSIGNED DIMENSION 100 FILL TAG $$; 


OTSISB.SOL;1 


CONSTANT ISB_LEN EQUALS :; 
end_of lub BYTE FILL TAG $$; 
END 1S6; 

END_MODULE SISBDEF; 


{ End of file OTSISB.SDL 
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SD 


A505 AH-BT13A-SE "DIGITAL EQUIPMENT CORPORATION 
NEVE VAX/VMS V4.0 CONFIDENTIAL 


AND PROPRIETARY 


